10 REM BEISPIELPROGRAMM
20 :
30 :
40 !EINGABE:
50 :
60 !BERECHNUNG:
70 :
80 !AUSGABE:
90 :
95 :
100 END
110 :
120 :
130 REM EINGABE
140 PRINT"[147]";
150 INPUT "DURCHMESSER";D
160 RETURN
170 :
180 REM BERECHNUNG
190 A=((null)*D^2)/4
200 RETURN
210 :
220 REM AUSGABE
225 REM BASIC-BEFEHL MIT ANFUEHRUNGSZEICHEN !!!
230 !"PRINTA":
240 RETURN
250 :
260 REM "PRINTA"
270 PRINT"[147]KREISFLAECHE A=";A;"MM^2"
280 RETURN